約 809,343 件
https://w.atwiki.jp/sponsoracjapan/pages/4268.html
テレビ朝日系列 テレビ朝日 2021年12月 ローカル特別セールス ＠EX テレビ朝日 + ... 熱冬高校バスケ SoftBankウインターカップ2021ハイライト 2021年12月26日1時05分~1時20分 1’00”…SoftBank※ イマジン～脳がハマるドラマ～ 2021年12月27日0時00分~1時00分 0’30”…AKRACING EXITのアクセル全開宣言!!～モータースポーツ見るしかナイトプール!年末SP～ 2021年12月29日1時00分~2時00分 1’00”…TOYOTA Gazoo Racing(絨毯の上にカラー表記) ザワつく!金曜日 傑作選 大晦日直前SP 2021年12月30日9時30分~13時00分 09 31~10 15 1’00”…PREMiER ANTI-AGING 芸能人格付けチェック2021 特別編 2021年12月31日8時00分~11時45分 08 01~08 57 1’00”…PREMiER ANTI-AGING 0’30”…Create、東京建物 09 23~11 36 1’00”…PREMiER ANTI-AGING 0’30”…長谷工グループ 相棒17 ♯1スペシャル #2 2021年12月31日12時00分~14時30分 0’30”…永代供養出張サポート ANNスーパーJチャンネル 2021年12月31日17時30分~18時00分 0’30”…東京建物、やまや(酒屋)、崎陽軒 ＠ABC + ... Joshin PRESENTS 虎バンSP 阪神タイガースファン感謝デー2021 2021年12月11日14時30分~15時25分 2’00”…まごころサービスの Joshin※ 教えて!ニュースライブ 正義のミカタ クリスマス特別編!“国ガチャ”大ハズレ!?2022年も日本はベリークルシミマスSP! 2021年12月25日 9時30分~11時45分/12時00分~13時00分 午前 0’30”…yamato(大和工業グループ)、NTT西日本 0’15”…インクリーズヘアー(PT) 午後 0’30”…アート引越センター、伊藤ハム、株式会社ファーマフーズ、LA・PITA 勝手に!漫画アワード【バカリズムMC】 2021年12月26日0時05分~1時00分 2’00”…コミックシーモア(絨毯の上にカラー表記) 0’30”…大阪ガス、健栄製薬 第3回G-1グランプリ 吉本ゴルフNo.1決定戦 supported by スカルプD 東野 岡村 2021年12月26日15時55分~17時25分 1’30”…アンファー(絨毯の上にカラー表記・1 00"=Dクリニック大阪メンズ + 0 30"=アンファー) 0’30”…Mercedes-Benz、JT、大分むぎ焼酎 二階堂 おはよう朝日です 年末増刊号 MC大奮闘!一度ではもったいない2021年傑作集 2021年12月27日7時00分~8時00分 前半 0’30”…OPEN HOUSE 後半 0’30”…HIS おはよう朝日です 年末増刊号 笑いあり涙あり癒やしあり!再び見たい2021年傑作集笑いあり…涙 2021年12月28日7時00分~8時00分 前半 0’30”…中央自動車工業、LAWSON 後半 0’30”…Joshin、NTT西日本 八方・今田のよしもと楽屋ニュース2021 2021年12月28日23時15分~2021年12月29日3時00分 23 35~24 49 1’00”…SUNTORY 0’30”…アート引越センター、JT、株式会社ファーマフーズ、DAIKIN(PT) 25 08~26 55 0’30”…井澤金属、清酒大関、プレサンスコーポレーション、株式会社ファーマフーズ、カザマランドセル―Since 1950―、JT、パチンコ スロット アミューズ ANNニュース 2021年12月29日23時30分~23時40分 高校野球スペシャル 甲子園がつないだもの 2021年12月29日23時40分~2021年12月30日0時40分 0’30”…Coca-Cola、武庫川女子大学、京都銀行、大阪ガス、コミックシーモア(PT)、XPERIA(SONY・PT)、健栄製薬(PT) ポツンと一軒家 年末3時間傑作選スペシャル 2021年12月30日12時00分~15時00分 12 10~13 21 0’30”…OKURA 大倉、NAGAWA、HIS、DAIKIN(PT) 13 21~14 58 0’30”…セキスイハイム近畿、LISTERINE 相棒season17 #10 SP 2021年12月30日15時05分~17時25分 15 48~17 22 0’30”…のむシリカ、カザマランドセル―Since 1950―、セキスイハイム近畿、LISTERINE マグロに賭けた男たち 大晦日 俺は負けない!(再) 2021年12月31日7時05分~8時50分 7 53~8 33 0’30”…JA熊本経済連、賃貸住宅サービス 相席食堂 傑作選 大晦日は朝から笑い収め～M-1ファイナリストロケ頂上決戦SP 2021年12月31日9時50分~11時45分 10 26~11 24 0’30”…小林製薬、アンファー、cerema(セレマ)、セキスイハイム近畿 探偵!ナイトスクープ年忘れファン感謝祭2021 2021年12月31日12時00分~15時25分 A枠 0’30”…三井ショッピングパーク LaLaport、yamato、JT、ABCハウジング、朝日新聞、セキスイハイム近畿、 B枠 0’30”…EDION(エディオン)、NETFLIX、プレサンスコーポレーション、KICONA、井澤金属、賃貸住宅サービス C枠 0’30”…Aj AJINOMOTO、関電不動産開発、Johnson Johnson、MARUKO ANNスーパーJチャンネル 2021年12月31日17時30分~18時00分 0’30”…朝日新聞、NTT西日本 ＠HTB + ... 錦鯉が行く!のりのり函館ツアー 3週連続土曜午後に こーんにーちはー! 2021年12月4日15時25分~15時55分 絨毯の上に表記 0’30”…第一三共ヘルスケア 錦鯉が行く!のりのり函館ツアー M-1優勝祈願?のイカした函館! 驚きの発掘にドキドキ 2021年12月11日15時25分~15時55分 絨毯の上に表記 0’30”…第一三共ヘルスケア 藤やん うれしーの北海道旅どうでしょう 2021年12月23日0時15分~0時45分 0’30”…SUNTORY(PT) 芸能人格付けチェック2021 特別編 2021年12月31日8時00分~11時45分 0’30”…LION(PT)、NEXCO東日本(PT)、KIRIN(PT)、Coca-Cola(PT) 探偵!ナイトスクープ 年忘れファン感謝祭2021 2021年12月31日12時00分~15時25分 0’30”…品川スキンクリニック、三井アウトレットパーク札幌北広島 ＠KFB福島放送 + ... KFB開局40周年記念番組 あいうえお天気目玉焼き 大感謝祭 2021年12月5日10時00分~11時50分 前半 0’30”…朝日新聞、SUNTORY、あいづダストセンター、大和証券、株式会社ローズ・ビルサービス、PriMax、郡山自動車学校、郡山テアトル、郡中GROUP×不動産、YOKOHAMA(PT)、Shop Japan(CM=トゥルースリーパー・PT) 後半 0’30”…Yakult、福島民友新聞社、JKC Group 税理士法人 常陽経営、JT、杉妻自動車学校、株式会社みんなの味方、マルイチグループ、有限会社 伊豆屋住宅不動産、明治安田生命(PT) バスケットボールB2リーグ 福島ファイヤーボンズ×青森ワッツ 2021年12月11日14時30分~16時00分 全社黒絨毯の上に表記 0’30”…MISHONE、ネッツトヨタ郡山、JA福島さくら、郡山自動車学校、福島民報社、Fe 富士電機、住宅情報館、プリベント大沼、Lambda Systems Inc.、JA全農福島(PT) ＠OAB大分朝日放送 + ... じもっと!OITA 年末SP〜未来へ〜 2021年12月27日16時45分~19時00分絨毯の上に ゴリラ大分グループ 以外カラー表記 16 45~17 50 0’30”…Aj AJINOMOTO 0’15”…平倉建設(ロゴのみ1’30”仕様) 18 15~19 00 0’30”…大分むぎ焼酎 二階堂、ゴリラ大分グループ 0’15”…フンドーキン醤油、ネッツトヨタ東九州、三信産業株式会社、株式会社 別大興産(ロゴのみ1’30”仕様)、株式会社 和田組 ＠KKB鹿児島放送 + ... 【年忘れ相棒祭り】相棒season6「寝台特急カシオペア殺人事件」 2021年12月27日14時14分~16時40分 0’30”…DMMほけん 2021秋 大島旋風〜大高が結ぶ8年の物語〜 2021年12月28日9時55分~10時25分 0’30”…松和物産株式会社(1’00”扱い・提クレのみ)、鹿児島銀行、株式会社エムズ、薩摩 蒸氣屋、(公社)鹿児島県茶業会議所、薩摩味市場 極 きわみ、株式会社ビックⅡ(提クレのみ)、南日本銀行(提クレのみ)、タイヨー(提クレのみ)、ホテルビックマリン奄美・奄美ラッキーレンタカー(提クレのみ)、九電グループ(PT) ALL WAVE〜波は輝北から〜小さな町のソフトボール物語 2021年12月29日9時55分~10時25分 0’30”…Audi鹿児島、南国殖産、鹿児島信用金庫(提クレのみ)、いすゞ自動車九州株式会社(提クレのみ)、新興グループ(提クレのみ)、トヨタレンタリース鹿児島(提クレのみ) そんなコト考えた事なかったクイズ!トリニクって何の肉!? 3時間スペシャル 2021年12月30日13時00分~16時00分 0’30”…SNBL 新日本科学(PT) ブロックネット + ... 坂上・良純・宇賀のニッポンの酒 ○○県の銘酒も! 2021年12月28日23時15分~2021年12月29日0時10分KFB・UX・HAB・abn・KAB・OAB・QAB 7局ネット 前半(絨毯の上にカラー表記) 0’30”…mouse(0’15”×2)、JT、朝日新聞、GungHo、MITSUBISHI ELECTRIC、アサヒビール、YKK AP(PT) 後半 ローカル＠KFB福島放送0’30”…★SAPPORO、Lambda systems Inc.0’15”…杉妻自動車学校(PT) ＠OAB大分朝日放送1’00”…KIRIN(キリンビバレッジ・PT)0’30”…タマホーム※、宝くじ(PT)、大蔵大臣(PT)、SoftBank(PT)、GungHo(PT)
https://w.atwiki.jp/houou_co/pages/9.html
関連ブログ @wikiのwikiモードでは #bf(興味のある単語) と入力することで、あるキーワードに関連するブログ一覧を表示することができます 詳しくはこちらをご覧ください。 ＝＞http //atwiki.jp/guide/17_161_ja.html たとえば、#bf(ゲーム)と入力すると以下のように表示されます。 #bf
https://w.atwiki.jp/ce00582/pages/1516.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1900 To 2100, 14 To 69, 1 To 49) As Single Dim mos(1900 To 2100, 14 To 69, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1900 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1900 To 2100, 0 To 99) As Single Dim minx(14 To 75, 0 To 50) As Single Dim mout(14 To 75, 0 To 50) As Single Dim mnew(1900 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /nagoya/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /nagoya/data/男子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /nagoya/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a2 Loop Close #3 Open "c /nagoya/data/男子被保険者.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46, a47, a48, a49, a50, a51, a52 age = a1 minx(age, 0) = a2 minx(age, 1) = a3 minx(age, 2) = a4 minx(age, 3) = a5 minx(age, 4) = a6 minx(age, 5) = a7 minx(age, 6) = a8 minx(age, 7) = a9 minx(age, 8) = a10 minx(age, 9) = a11 minx(age, 10) = a12 minx(age, 11) = a13 minx(age, 12) = a14 minx(age, 13) = a15 minx(age, 14) = a16 minx(age, 15) = a17 minx(age, 16) = a18 minx(age, 17) = a19 minx(age, 18) = a20 minx(age, 19) = a21 minx(age, 20) = a22 minx(age, 21) = a23 minx(age, 22) = a24 minx(age, 23) = a25 minx(age, 24) = a26 minx(age, 25) = a27 minx(age, 26) = a28 minx(age, 27) = a29 minx(age, 28) = a30 minx(age, 29) = a31 minx(age, 30) = a32 minx(age, 31) = a33 minx(age, 32) = a34 minx(age, 33) = a35 minx(age, 34) = a36 minx(age, 35) = a37 minx(age, 36) = a38 minx(age, 37) = a39 minx(age, 38) = a40 minx(age, 39) = a41 minx(age, 40) = a42 minx(age, 41) = a43 minx(age, 42) = a44 minx(age, 43) = a45 minx(age, 44) = a46 minx(age, 45) = a47 minx(age, 46) = a48 minx(age, 47) = a49 minx(age, 48) = a50 minx(age, 49) = a51 minx(age, 50) = a52 Loop Close #6 Open "c /nagoya/data/男子待期者.txt " For Input As #7 Do Until EOF(7) Input #7, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46, a47, a48, a49, a50, a51, a52 age = a1 mout(age, 0) = a2 mout(age, 1) = a3 mout(age, 2) = a4 mout(age, 3) = a5 mout(age, 4) = a6 mout(age, 5) = a7 mout(age, 6) = a8 mout(age, 7) = a9 mout(age, 8) = a10 mout(age, 9) = a11 mout(age, 10) = a12 mout(age, 11) = a13 mout(age, 12) = a14 mout(age, 13) = a15 mout(age, 14) = a16 mout(age, 15) = a17 mout(age, 16) = a18 mout(age, 17) = a19 mout(age, 18) = a20 mout(age, 19) = a21 mout(age, 20) = a22 mout(age, 21) = a23 mout(age, 22) = a24 mout(age, 23) = a25 mout(age, 24) = a26 mout(age, 25) = a27 mout(age, 26) = a28 mout(age, 27) = a29 mout(age, 28) = a30 mout(age, 29) = a31 mout(age, 30) = a32 mout(age, 31) = a33 mout(age, 32) = a34 mout(age, 33) = a35 mout(age, 34) = a36 mout(age, 35) = a37 mout(age, 36) = a38 mout(age, 37) = a39 mout(age, 38) = a40 mout(age, 39) = a41 mout(age, 40) = a42 mout(age, 41) = a43 mout(age, 42) = a44 mout(age, 43) = a45 mout(age, 44) = a46 mout(age, 45) = a47 mout(age, 46) = a48 mout(age, 47) = a49 mout(age, 48) = a50 mout(age, 49) = a51 mout(age, 50) = a52 Loop Close #7 Open "c /nagoya/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1941 To 1989 ageage = 2005 - byear age = ageage For car = 1 To 49 a1 = minx(age, car) / 10 ^ 4 a2 = mout(age, car) / 10 ^ 4 mis(byear, age, car) = a1 mos(byear, age, car) = a2 Next age = ageage + 1 mis(byear, age, 1) = m2by(byear, age) For age = ageage + 1 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next age = 64 z1 = 0 z2 = 0 For car = 1 To 24 z1 = z1 + mis(byear, age, car) + mos(byear, age, car) z2 = z2 + car * (mis(byear, age, car) + mos(byear, age, car)) Next mnew(byear) = z2 / z1 Debug.Print byear, mnew(byear) Next Open "c /nagoya/gdata/男子通算平均加入年数2.txt " For Output As #4 For byear = 1941 To 1989 Write #4, byear, mnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/toya51/pages/5.html
まとめサイト作成支援ツールについて @wikiにはまとめサイト作成を支援するツールがあります。 また、 #matome_list と入力することで、注目の掲示板が一覧表示されます。 利用例）#matome_listと入力すると下記のように表示されます #matome_list
https://w.atwiki.jp/pam-iwate/pages/138.html
割烹旅館 おぼない 「魚屋」が経営する宿。八戸直送の活きの良い魚介類をどこよりもお値打ちな料金で、心ゆくまで堪能していただけるよう心掛けております。また、板長が工夫を凝らした山菜や川魚・五穀料理のおもてなしが好評を頂いております。四季折々の花が彩る庭園に建つ東屋では、ソバやアユの塩焼きなどをご賞味頂くことが出来ます。また、地酒の南部美人は絶対にオススメです。 ◆泉質：単純温泉（低張性弱アルカリ低温泉） ◆効能：リウマチ、神経痛、筋肉痛、関節痛、五十肩、運動麻痺、関節のこわばり など 〈割烹旅館 おぼない公式サイトより引用〉 割烹旅館 おぼない 〒０２８−５７１１ 岩手県二戸市金田一字湯田４３−５ ＴＥＬ：０１９５−２７−２２２１ ＦＡＸ：０１９５−２７−２２２２ パンフレット ※画像をクリックするとパンフレットが開きます。 imageプラグインエラー ご指定のURLはサポートしていません。png, jpg, gif などの画像URLを指定してください。 ホームページ http //www.shokokai.com/ninohe/kinsyoko/onsen/obonai/obonai.html 《ブログ》 美味い！！この豚美味い！！ http //blogs.yahoo.co.jp/cha_p_0628/58428001.html 岩手・二戸市金田一温泉 割烹旅館おぼない http //blogs.yahoo.co.jp/ohsabusabu/58129213.html 「どんど晴れ」に金田一温泉 http //blogs.yahoo.co.jp/onikosato/15115875.html 味キッチンおぼない http //yoitinana.exblog.jp/6909283/ 階上岳＆名久井岳 http //yaplog.jp/ttkk30/daily/200703/17/ 携帯サイト 最新のチラシ imageプラグインエラー ご指定のURLはサポートしていません。png, jpg, gif などの画像URLを指定してください。 《周辺情報》 二戸市観光ガイドマップ http //www.city.ninohe.iwate.jp/kanko/map/newcity-map00.html 稲庭高原…登山口から頂上までは歩いて40分 http //www.city.ninohe.iwate.jp/kanko/joboji/inaniwa.html 馬仙峡…馬淵川の清流を挟んでそびえ立つ景勝地 http //www.city.ninohe.iwate.jp/kanko/basenkyo/basenkyo.html 折爪岳…太平洋、岩手山、八戸の夜景など、３６０度のパノラマ http //www.city.ninohe.iwate.jp/kanko/oritume/oritume.html 九戸城…平山城で、東京ドームの約１０倍です。 http //www.city.ninohe.iwate.jp/kanko/kunohecst/kunohecst.html 八葉山 天台寺…瀬戸内寂聴師を住職に迎えたことは全国的な話題 http //www.city.ninohe.iwate.jp/kanko/joboji/tendaiji.html 漆の滴生舎…浄法寺の漆を使った漆器や漆芸品だけを展示販売 http //www.tekiseisha.com/ 稲庭交流センター・天台の湯… 天然ミネラルをバランスよく含んだ準天然トロン温泉 http //www.tendainoyu.jp/ カシオペアメッセ・なにゃーと…展望タワー、物産センターがある http //www.nanyato.com/ シビックセンター…デザイン館、科学館のある市民交流施設 http //www.civic.ninohe.iwate.jp/ 金田一温泉センター・ゆうゆうゆ〜らく…岩風呂とヒバ風呂の温泉 http //www.city.ninohe.iwate.jp/kanko/kintaichi/center.html にのへの味 http //www.city.ninohe.iwate.jp/kanko/outline/kyoudoryouri.html にのへのお土産 http //www.city.ninohe.iwate.jp/kanko/outline/omiyage.html 〈ブログ２〉 #blogsearch /
https://w.atwiki.jp/valhalla-gate/pages/83.html
アビリティ名 使用回数 消費TP 説明 タグ 所持カード [水]乱入強撃 1 10 前衛に激しく乱入して攻撃する。レベルが上がると威力が増加する [攻撃][敵単体][1回] 【人】聖女シルヴァカンヌ [水]乱入極撃 1 10 まるで最初から前衛に居たかのように乱入して攻撃する。レベルが上がると威力が増加する [攻撃][敵単体][1回] 【魔】神蛇ヤマタノオロチ【魔】漆黒蛇ヤマタノオロチ【魔】獣乙女スキュラ [水]ハニートラップ 1 20 敵生存者を仲たがいさせ同士討ちさせる。さらにダメージを受けた相手のパラメータが減少する。聖戦時間が残り5分を切ると使用不可。敵生存者が2体以上居ないと使用不可。レベルが上がると威力と効果が増加する [攻撃][敵単体][減少][残り5分 使用不可][1回] 【魔】恋魔神ゼパル [水]氷の矢 1 15 急所に当たりやすい氷の矢を放つ。レベルが上がると威力が増加する [弓矢][敵単体][急所][1回] 【人】王女ダユー【魔】鈴鹿御前【魔】雪女【魔】魔犬ヘルハウンド【魔】水魔クラーケン【魔】氷河娘セルキー【魔】オーク[弓] [水]氷の雨 1 30 急所に当たりやすい氷の矢を雨のように放つ。レベルが上がると威力が増加する [弓矢][敵全体][急所][1回] 【人】狂姫ダユー【人】復讐姫ダユー【人】海賊メアリ・リード【人】女戦士アマゾネス【人】湖の騎士ランスロット [水]ミズガルズ 1 30 敵3体にダメージを与え、さらに魔力を減少させる。レベルが上がると威力が増加する [弓矢][敵3体][魔力減少][急所][1回] 【魔】世界蛇ヨルムンガンド [水]オクトパスアロー 1 20 8本の足から4本の矢を同時に放ち敵1～4体にダメージ。コンボ数が+4される。レベルが上がると威力が増加する [弓][敵1-4体][コンボ数+4][急所][1回] 【魔】海獣姫クラーケン [水]フリーズアロー 3 20 凍結の矢を放つ。敵1体にダメージを与え、防御を減少させる。30%の固定確率で敵を一撃で気絶させる。レベルが上がると威力と効果が増加する [弓][敵単体][防御減少][急所][3回] 【神】雪女神スカジ [水]人族号令 5 10 人族の力を結集し号令をかける。味方全滅時には使用不可。自身のデッキにセットしている人族カードが多いほど効果が増加する。レベルが上がると効果が増加する [支援][人族 効果増加][味方単体][5回] 【人】源義経【人】海賊アン・ボニー【人】竜宮王女オトヒメ【人】姫騎士メローラ【人】木曾義仲【人】聖騎士ガレス【人】王異【人】壱与【人】伊達政宗【人】聖女セナンク [水]祈り 1 30 乙女の祈りで全パラメータが増加する。味方全滅時には使用不可。レベルが上がると効果が増加する [支援][全増加][味方単体][1回] 【神】運命の女神モリガン【人】神秘エルフクイーン【人】緋皇帝バビロン【魔】水精霊ウンディーネ【魔】嘆姫メリュジーヌ [水]救護 5 10 献身的に味方を支援しパラメータを増加させ、さらにHPを回復する。味方全滅時には使用不可。レベルが上がると効果が増加する [支援][味方単体][増加][回復][5回] 【神】戦乙女レギンレイヴ【神】光妖精クレア【神】月女神ディアナ【人】湖の妖精ヴィヴィアン【人】麗人ムーラン【魔】犬騎士クー・シー【魔】ペロキャンピクシー [水]王の激励 1 30 弱っている者を奮い立たせる。最もパラメータの低い味方の全パラメータが増加する。味方全滅時には使用不可。レベルが上がると効果が増加する [支援][味方弱者単体][全増加][1回] 【魔】猫王ケット・シー [水]猫魔女エール 3 10 気まぐれな猫魔女の応援。ランダムで味方1～5体のパラメータが増加する。味方全滅時には使用不可。レベルが上がると効果が増加する [支援][味方1-5体][3回] 【人】猫魔女グリマルキン [水]コリュキオン 3 10 味方気絶者のパラメータをどれか一つ上げる。気絶者が存在しない場合は、味方前衛を対象とする。レベルがあがると効果が増加する [支援][味方気絶者優先単体][3回] 【魔】蛇乙女デルピュネ [水]ガラシャフラッシュ 1 35 愛の乙女による輝ける応援。味方1人の全パラメータを上昇させる。劣勢時に使用すると上昇効果が2倍になる。味方全滅時には使用不可。レベルが上がると効果が増加する [支援][全増加][劣勢時効果2倍][味方単体][1回] 【人】細川ガラシャ [水]叱咤激励 3 10 対象を叱りつつも励まし、奮い立たせる。味方1人の攻撃と防御が増加し、さらにHPを少し回復する。味方全滅時には使用不可。レベルが上がると効果が増加する [支援][味方単体][攻撃防御増加][回復][3回] 【神】婚礼の女神ジュノン【神】勝利の女神ニケ【神】戦乙女ロスヴァイセ【人】海賊アルビダ [水]デルピノス 1 35 最もパラメータの低い味方の全パラメータとTPが増加する。味方全滅時には使用不可。レベルが上がると効果が増加する [支援][味方弱者単体][全増加][TP回復][1回] 【神】海神ポセイドン【神】海神妃アンフィトリテ [水]共鳴 1 30 最もパラメータの低い味方前衛の全パラメータを増加させ、自身の全パラメータを増加させる。自身への効果値は基本パラメータに依存し、かつコンボによる効果上昇の影響は受けない。味方全滅時には使用不可。レベルが上がると効果が増加する [支援][味方弱者 自身][全増加][1回] 【神】姫巫女タマヨリ [水]ブルーム 3 10 最もパラメータの低い味方生存者のパラメータを増加させる。味方全滅時には使用不可。レベルが上がると効果が増加する [支援][味方弱者単体 増加][3回] 【神】花女神タレイア [水]大号令 3 25 味方全体に大号令をかける。味方全滅時には使用不可。レベルが上がると効果が増加する [支援][味方全体][3回] 【神】伝令神ヘルメス【人】聖騎士ガウェイン【人】[独眼竜]伊達政宗【人】紅女王ブーディカ [水]車懸りの陣 3 25 息をつく暇も与えず攻撃を繰り返す陣を敷き、味方全体の攻撃を増加させる。味方全滅時には使用不可。レベルが上がると効果が増加する [支援][攻撃増加][味方全体][3回] 【人】上杉謙信 [水]武田八陣 2 30 柔軟かつ迅速に動ける陣を敷き、気絶者を含む味方全体のパラメータを増加させ、さらにHPも回復する。自軍気絶者が多い程パラメータ上昇値が加算される。レベルが上がると効果が増加する [支援][増加][回復][味方全体][2回] 【人】武田信玄 [水]鉄壁号令 3 25 気絶者を含む味方全体の防御を増加させる。レベルが上がると効果が増加する [支援][味方全体][防御増加][3回] 【人】女傑ヘルヴォール [水]ヒールウェイブ 3 15 味方3人のパラメータを増加させ、さらにHPを回復する。味方全滅時には使用不可。レベルが上がると効果が増加する [支援][増加][HP回復][3回] 【神】海の女神テティス【神】蒼乙女ネレイド【魔】海豹妖精セルキー [水]甘い吐息 2 20 魅惑の甘い吐息を吹きかけ、敵1体の全パラメータを減少させる。敵全滅時には使用不可。レベルが上がると効果が増加する [支援][敵単体][全減少][2回] 【魔】魔妖精リャナンシー【魔】夜の魔女リリス【魔】毒妃ヒュドラ【魔】妖魚レモラ【魔】水魔ルサールカ [水]幻惑の旋律 1 20 敵生存者を操り、敵1体のパラメータを減少させる。自軍劣勢時のみ使用可能。敵生存者が2体以上居ないと使用不可。レベルが上がると効果が増加する [支援][敵単体][減少][1回] 【人】星乙姫カシオペア [水]アイスプリズン 2 20 敵1体を巨大な氷晶の中に閉じ込め、防御を減少させる。敵全滅時には使用不可。レベルが上がると効果が増加する [支援][敵単体][防御減少][2回] 【魔】氷晶妖精スフィア【魔】雪姫スノーフェアリー [水]全体治癒 5 5 癒しの力で味方全体のHPを回復する。レベルが上がると効果が増加する [回復][味方全体][5回] 【神】貝姫キサガイ【人】卑弥呼【人】深窓の乙女ラプンツェル【人】道士マコ [水]癒しの手 5 10 癒しの力で気絶者を含む味方全体のHPを回復する。レベルが上がると効果が増加する [回復][味方全体][5回] 【神】四大天使ラファエル【神】慈愛の女神ヘスティア【人】仙女マコ [水]百花繚乱 3 15 生命力を増強させる花々を咲き乱らせる。気絶者を含む味方全体のHPを回復し、全パラメータを少し増加させる。レベルが上がると効果が増加する [回復][全増加][味方全体][3回] 【神】妖精女王ティターニア【人】エルフプリンセス【人】八洞神仙マコ【魔】花精霊ドリアード [水]死者蘇生 3 20 気絶している味方1人を回復し、さらに全パラメータを増加させる。レベルが上がると効果が増加する [支援][味方気絶単体][回復][全増加][3回] 【神】古代女神イシス【神】貝姫ウムギ [水]連環の舞扇 2 25 敵2体にダメージを与え、さらに全パラメータを減少させる。レベルが上がると威力が増加する [弓矢][敵2体][全減少][急所][2回] 【人】貂蝉
https://w.atwiki.jp/ce00582/pages/1531.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1900 To 2100, 14 To 69, 1 To 49) As Single Dim mos(1900 To 2100, 14 To 69, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1900 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1900 To 2100, 0 To 99) As Single Dim minx(14 To 75, 0 To 50) As Single Dim mout(14 To 75, 0 To 50) As Single Dim mnew(1900 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /nagoya/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /nagoya/data/男子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /nagoya/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a2 Loop Close #3 Open "c /nagoya/data/男子被保険者.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46, a47, a48, a49, a50, a51, a52 age = a1 minx(age, 0) = a2 minx(age, 1) = a3 minx(age, 2) = a4 minx(age, 3) = a5 minx(age, 4) = a6 minx(age, 5) = a7 minx(age, 6) = a8 minx(age, 7) = a9 minx(age, 8) = a10 minx(age, 9) = a11 minx(age, 10) = a12 minx(age, 11) = a13 minx(age, 12) = a14 minx(age, 13) = a15 minx(age, 14) = a16 minx(age, 15) = a17 minx(age, 16) = a18 minx(age, 17) = a19 minx(age, 18) = a20 minx(age, 19) = a21 minx(age, 20) = a22 minx(age, 21) = a23 minx(age, 22) = a24 minx(age, 23) = a25 minx(age, 24) = a26 minx(age, 25) = a27 minx(age, 26) = a28 minx(age, 27) = a29 minx(age, 28) = a30 minx(age, 29) = a31 minx(age, 30) = a32 minx(age, 31) = a33 minx(age, 32) = a34 minx(age, 33) = a35 minx(age, 34) = a36 minx(age, 35) = a37 minx(age, 36) = a38 minx(age, 37) = a39 minx(age, 38) = a40 minx(age, 39) = a41 minx(age, 40) = a42 minx(age, 41) = a43 minx(age, 42) = a44 minx(age, 43) = a45 minx(age, 44) = a46 minx(age, 45) = a47 minx(age, 46) = a48 minx(age, 47) = a49 minx(age, 48) = a50 minx(age, 49) = a51 minx(age, 50) = a52 Loop Close #6 Open "c /nagoya/data/男子待期者.txt " For Input As #7 Do Until EOF(7) Input #7, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46, a47, a48, a49, a50, a51, a52 age = a1 mout(age, 0) = a2 mout(age, 1) = a3 mout(age, 2) = a4 mout(age, 3) = a5 mout(age, 4) = a6 mout(age, 5) = a7 mout(age, 6) = a8 mout(age, 7) = a9 mout(age, 8) = a10 mout(age, 9) = a11 mout(age, 10) = a12 mout(age, 11) = a13 mout(age, 12) = a14 mout(age, 13) = a15 mout(age, 14) = a16 mout(age, 15) = a17 mout(age, 16) = a18 mout(age, 17) = a19 mout(age, 18) = a20 mout(age, 19) = a21 mout(age, 20) = a22 mout(age, 21) = a23 mout(age, 22) = a24 mout(age, 23) = a25 mout(age, 24) = a26 mout(age, 25) = a27 mout(age, 26) = a28 mout(age, 27) = a29 mout(age, 28) = a30 mout(age, 29) = a31 mout(age, 30) = a32 mout(age, 31) = a33 mout(age, 32) = a34 mout(age, 33) = a35 mout(age, 34) = a36 mout(age, 35) = a37 mout(age, 36) = a38 mout(age, 37) = a39 mout(age, 38) = a40 mout(age, 39) = a41 mout(age, 40) = a42 mout(age, 41) = a43 mout(age, 42) = a44 mout(age, 43) = a45 mout(age, 44) = a46 mout(age, 45) = a47 mout(age, 46) = a48 mout(age, 47) = a49 mout(age, 48) = a50 mout(age, 49) = a51 mout(age, 50) = a52 Loop Close #7 Open "c /nagoya/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1941 To 1989 ageage = 2005 - byear age = ageage For car = 1 To 49 a1 = minx(age, car) / 10 ^ 4 a2 = mout(age, car) / 10 ^ 4 mis(byear, age, car) = a1 mos(byear, age, car) = a2 Next age = ageage + 1 mis(byear, age, 1) = m2by(byear, age) For age = ageage + 1 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next age = 64 z1 = 0 z2 = 0 For car = 25 To 49 z1 = z1 + mis(byear, age, car) + mos(byear, age, car) z2 = z2 + car * (mis(byear, age, car) + mos(byear, age, car)) Next mnew(byear) = z2 / z1 Debug.Print byear Next Open "c /nagoya/gdata/男子平均加入年数2.txt " For Output As #4 For byear = 1941 To 1989 Write #4, byear, mnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1512.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1900 To 2100, 14 To 69, 1 To 49) As Single Dim mos(1900 To 2100, 14 To 69, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1900 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1900 To 2100, 0 To 99) As Single Dim minx(14 To 75, 0 To 50) As Single Dim mout(14 To 75, 0 To 50) As Single Dim mnew(1900 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /nagoya/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /nagoya/data/女子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /nagoya/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a3 Loop Close #3 Open "c /nagoya/data/女子被保険者.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46, a47, a48, a49, a50, a51, a52 age = a1 minx(age, 0) = a2 minx(age, 1) = a3 minx(age, 2) = a4 minx(age, 3) = a5 minx(age, 4) = a6 minx(age, 5) = a7 minx(age, 6) = a8 minx(age, 7) = a9 minx(age, 8) = a10 minx(age, 9) = a11 minx(age, 10) = a12 minx(age, 11) = a13 minx(age, 12) = a14 minx(age, 13) = a15 minx(age, 14) = a16 minx(age, 15) = a17 minx(age, 16) = a18 minx(age, 17) = a19 minx(age, 18) = a20 minx(age, 19) = a21 minx(age, 20) = a22 minx(age, 21) = a23 minx(age, 22) = a24 minx(age, 23) = a25 minx(age, 24) = a26 minx(age, 25) = a27 minx(age, 26) = a28 minx(age, 27) = a29 minx(age, 28) = a30 minx(age, 29) = a31 minx(age, 30) = a32 minx(age, 31) = a33 minx(age, 32) = a34 minx(age, 33) = a35 minx(age, 34) = a36 minx(age, 35) = a37 minx(age, 36) = a38 minx(age, 37) = a39 minx(age, 38) = a40 minx(age, 39) = a41 minx(age, 40) = a42 minx(age, 41) = a43 minx(age, 42) = a44 minx(age, 43) = a45 minx(age, 44) = a46 minx(age, 45) = a47 minx(age, 46) = a48 minx(age, 47) = a49 minx(age, 48) = a50 minx(age, 49) = a51 minx(age, 50) = a52 Loop Close #6 Open "c /nagoya/data/女子待期者.txt " For Input As #7 Do Until EOF(7) Input #7, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46, a47, a48, a49, a50, a51, a52 age = a1 mout(age, 0) = a2 mout(age, 1) = a3 mout(age, 2) = a4 mout(age, 3) = a5 mout(age, 4) = a6 mout(age, 5) = a7 mout(age, 6) = a8 mout(age, 7) = a9 mout(age, 8) = a10 mout(age, 9) = a11 mout(age, 10) = a12 mout(age, 11) = a13 mout(age, 12) = a14 mout(age, 13) = a15 mout(age, 14) = a16 mout(age, 15) = a17 mout(age, 16) = a18 mout(age, 17) = a19 mout(age, 18) = a20 mout(age, 19) = a21 mout(age, 20) = a22 mout(age, 21) = a23 mout(age, 22) = a24 mout(age, 23) = a25 mout(age, 24) = a26 mout(age, 25) = a27 mout(age, 26) = a28 mout(age, 27) = a29 mout(age, 28) = a30 mout(age, 29) = a31 mout(age, 30) = a32 mout(age, 31) = a33 mout(age, 32) = a34 mout(age, 33) = a35 mout(age, 34) = a36 mout(age, 35) = a37 mout(age, 36) = a38 mout(age, 37) = a39 mout(age, 38) = a40 mout(age, 39) = a41 mout(age, 40) = a42 mout(age, 41) = a43 mout(age, 42) = a44 mout(age, 43) = a45 mout(age, 44) = a46 mout(age, 45) = a47 mout(age, 46) = a48 mout(age, 47) = a49 mout(age, 48) = a50 mout(age, 49) = a51 mout(age, 50) = a52 Loop Close #7 Open "c /nagoya/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1941 To 1989 ageage = 2005 - byear age = ageage For car = 1 To 49 a1 = minx(age, car) a2 = mout(age, car) mis(byear, age, car) = a1 mos(byear, age, car) = a2 Next age = ageage + 1 mis(byear, age, 1) = f2by(byear, age) For age = ageage + 1 To 64 z1 = (1 - gamma(age - 1)) * f2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next age = 64 z1 = 0 z2 = 0 For car = 25 To 49 z1 = z1 + mis(byear, age, car) + mos(byear, age, car) z2 = z2 + car * (mis(byear, age, car) + mos(byear, age, car)) Next mnew(byear) = z2 / z1 Debug.Print byear Next Open "c /nagoya/gdata/女子平均加入年数2.txt " For Output As #4 For byear = 1940 To 1989 Write #4, byear, mnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1507.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1900 To 2100, 14 To 69, 1 To 49) As Single Dim mos(1900 To 2100, 14 To 69, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1900 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1900 To 2100, 0 To 99) As Single Dim minx(14 To 75, 0 To 50) As Single Dim mout(14 To 75, 0 To 50) As Single Dim mnew(1900 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /nagoya/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /nagoya/data/女子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /nagoya/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a3 Loop Close #3 Open "c /nagoya/data/女子被保険者.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46, a47, a48, a49, a50, a51, a52 age = a1 minx(age, 0) = a2 minx(age, 1) = a3 minx(age, 2) = a4 minx(age, 3) = a5 minx(age, 4) = a6 minx(age, 5) = a7 minx(age, 6) = a8 minx(age, 7) = a9 minx(age, 8) = a10 minx(age, 9) = a11 minx(age, 10) = a12 minx(age, 11) = a13 minx(age, 12) = a14 minx(age, 13) = a15 minx(age, 14) = a16 minx(age, 15) = a17 minx(age, 16) = a18 minx(age, 17) = a19 minx(age, 18) = a20 minx(age, 19) = a21 minx(age, 20) = a22 minx(age, 21) = a23 minx(age, 22) = a24 minx(age, 23) = a25 minx(age, 24) = a26 minx(age, 25) = a27 minx(age, 26) = a28 minx(age, 27) = a29 minx(age, 28) = a30 minx(age, 29) = a31 minx(age, 30) = a32 minx(age, 31) = a33 minx(age, 32) = a34 minx(age, 33) = a35 minx(age, 34) = a36 minx(age, 35) = a37 minx(age, 36) = a38 minx(age, 37) = a39 minx(age, 38) = a40 minx(age, 39) = a41 minx(age, 40) = a42 minx(age, 41) = a43 minx(age, 42) = a44 minx(age, 43) = a45 minx(age, 44) = a46 minx(age, 45) = a47 minx(age, 46) = a48 minx(age, 47) = a49 minx(age, 48) = a50 minx(age, 49) = a51 minx(age, 50) = a52 Loop Close #6 Open "c /nagoya/data/女子待期者.txt " For Input As #7 Do Until EOF(7) Input #7, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46, a47, a48, a49, a50, a51, a52 age = a1 mout(age, 0) = a2 mout(age, 1) = a3 mout(age, 2) = a4 mout(age, 3) = a5 mout(age, 4) = a6 mout(age, 5) = a7 mout(age, 6) = a8 mout(age, 7) = a9 mout(age, 8) = a10 mout(age, 9) = a11 mout(age, 10) = a12 mout(age, 11) = a13 mout(age, 12) = a14 mout(age, 13) = a15 mout(age, 14) = a16 mout(age, 15) = a17 mout(age, 16) = a18 mout(age, 17) = a19 mout(age, 18) = a20 mout(age, 19) = a21 mout(age, 20) = a22 mout(age, 21) = a23 mout(age, 22) = a24 mout(age, 23) = a25 mout(age, 24) = a26 mout(age, 25) = a27 mout(age, 26) = a28 mout(age, 27) = a29 mout(age, 28) = a30 mout(age, 29) = a31 mout(age, 30) = a32 mout(age, 31) = a33 mout(age, 32) = a34 mout(age, 33) = a35 mout(age, 34) = a36 mout(age, 35) = a37 mout(age, 36) = a38 mout(age, 37) = a39 mout(age, 38) = a40 mout(age, 39) = a41 mout(age, 40) = a42 mout(age, 41) = a43 mout(age, 42) = a44 mout(age, 43) = a45 mout(age, 44) = a46 mout(age, 45) = a47 mout(age, 46) = a48 mout(age, 47) = a49 mout(age, 48) = a50 mout(age, 49) = a51 mout(age, 50) = a52 Loop Close #7 Open "c /nagoya/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1941 To 1989 ageage = 2005 - byear age = ageage For car = 1 To 49 a1 = minx(age, car) / 10 ^ 4 a2 = mout(age, car) / 10 ^ 4 mis(byear, age, car) = a1 mos(byear, age, car) = a2 Next age = ageage + 1 mis(byear, age, 1) = f2by(byear, age) For age = ageage + 1 To 64 z1 = (1 - gamma(age - 1)) * f2by(byear, age - 1) z2 = f2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - fdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next age = 64 z1 = 0 For car = 1 To 24 z1 = z1 + mis(byear, age, car) + mos(byear, age, car) Next mnew(byear) = z1 Debug.Print byear Next Open "c /nagoya/gdata/女子通算新規裁定者2.txt " For Output As #4 For byear = 1941 To 1989 Write #4, byear, mnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1506.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1900 To 2100, 14 To 69, 1 To 49) As Single Dim mos(1900 To 2100, 14 To 69, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1900 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1900 To 2100, 0 To 99) As Single Dim minx(14 To 75, 0 To 50) As Single Dim mout(14 To 75, 0 To 50) As Single Dim mnew(1900 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /nagoya/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /nagoya/data/男子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /nagoya/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a2 Loop Close #3 Open "c /nagoya/data/男子被保険者.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46, a47, a48, a49, a50, a51, a52 age = a1 minx(age, 0) = a2 minx(age, 1) = a3 minx(age, 2) = a4 minx(age, 3) = a5 minx(age, 4) = a6 minx(age, 5) = a7 minx(age, 6) = a8 minx(age, 7) = a9 minx(age, 8) = a10 minx(age, 9) = a11 minx(age, 10) = a12 minx(age, 11) = a13 minx(age, 12) = a14 minx(age, 13) = a15 minx(age, 14) = a16 minx(age, 15) = a17 minx(age, 16) = a18 minx(age, 17) = a19 minx(age, 18) = a20 minx(age, 19) = a21 minx(age, 20) = a22 minx(age, 21) = a23 minx(age, 22) = a24 minx(age, 23) = a25 minx(age, 24) = a26 minx(age, 25) = a27 minx(age, 26) = a28 minx(age, 27) = a29 minx(age, 28) = a30 minx(age, 29) = a31 minx(age, 30) = a32 minx(age, 31) = a33 minx(age, 32) = a34 minx(age, 33) = a35 minx(age, 34) = a36 minx(age, 35) = a37 minx(age, 36) = a38 minx(age, 37) = a39 minx(age, 38) = a40 minx(age, 39) = a41 minx(age, 40) = a42 minx(age, 41) = a43 minx(age, 42) = a44 minx(age, 43) = a45 minx(age, 44) = a46 minx(age, 45) = a47 minx(age, 46) = a48 minx(age, 47) = a49 minx(age, 48) = a50 minx(age, 49) = a51 minx(age, 50) = a52 Loop Close #6 Open "c /nagoya/data/男子待期者.txt " For Input As #7 Do Until EOF(7) Input #7, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46, a47, a48, a49, a50, a51, a52 age = a1 mout(age, 0) = a2 mout(age, 1) = a3 mout(age, 2) = a4 mout(age, 3) = a5 mout(age, 4) = a6 mout(age, 5) = a7 mout(age, 6) = a8 mout(age, 7) = a9 mout(age, 8) = a10 mout(age, 9) = a11 mout(age, 10) = a12 mout(age, 11) = a13 mout(age, 12) = a14 mout(age, 13) = a15 mout(age, 14) = a16 mout(age, 15) = a17 mout(age, 16) = a18 mout(age, 17) = a19 mout(age, 18) = a20 mout(age, 19) = a21 mout(age, 20) = a22 mout(age, 21) = a23 mout(age, 22) = a24 mout(age, 23) = a25 mout(age, 24) = a26 mout(age, 25) = a27 mout(age, 26) = a28 mout(age, 27) = a29 mout(age, 28) = a30 mout(age, 29) = a31 mout(age, 30) = a32 mout(age, 31) = a33 mout(age, 32) = a34 mout(age, 33) = a35 mout(age, 34) = a36 mout(age, 35) = a37 mout(age, 36) = a38 mout(age, 37) = a39 mout(age, 38) = a40 mout(age, 39) = a41 mout(age, 40) = a42 mout(age, 41) = a43 mout(age, 42) = a44 mout(age, 43) = a45 mout(age, 44) = a46 mout(age, 45) = a47 mout(age, 46) = a48 mout(age, 47) = a49 mout(age, 48) = a50 mout(age, 49) = a51 mout(age, 50) = a52 Loop Close #7 Open "c /nagoya/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1941 To 1989 ageage = 2005 - byear age = ageage For car = 1 To 49 a1 = minx(age, car) / 10 ^ 4 a2 = mout(age, car) / 10 ^ 4 mis(byear, age, car) = a1 mos(byear, age, car) = a2 Next age = ageage + 1 mis(byear, age, 1) = m2by(byear, age) For age = ageage + 1 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next age = 64 z1 = 0 For car = 1 To 24 z1 = z1 + mis(byear, age, car) + mos(byear, age, car) Next mnew(byear) = z1 Debug.Print byear Next Open "c /nagoya/gdata/男子通算新規裁定者2.txt " For Output As #4 For byear = 1940 To 1989 Write #4, byear, mnew(byear) Next Close #4 End Sub